home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / Corners.dxr / playing cards_58_reserve cards.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.9 KB  |  59 lines
  1. property spriteNum
  2. global reserve, stock, mover, equal, currentselect, redeals, foundation, points
  3.  
  4. on beginSprite me
  5.   reserve.addProp(makesymbol(spriteNum), new(script("card pile")))
  6.   sprite(spriteNum).member = member(stock.cards[1].rank & "_" & stock.cards[1].suit, "playing cards")
  7.   stock.cards.deleteAt(1)
  8.   reserve[makesymbol(spriteNum)].addCard(spriteNum)
  9. end
  10.  
  11. on mouseDown me
  12.   if sprite(spriteNum).member <> member("block", "playing cards") then
  13.     puppetSound(3, "pickcard")
  14.     sprite(spriteNum).locZ = spriteNum + 1000
  15.     mover = timeout("mover").new(5, #moveme, me)
  16.   end if
  17. end
  18.  
  19. on moveme me
  20.   sprite(spriteNum).loc = the mouseLoc
  21. end
  22.  
  23. on mouseUp me
  24.   if equal = 1 then
  25.     puppetSound(3, "pickcard")
  26.     mover.forget()
  27.     sprite(spriteNum).loc = reserve[makesymbol(spriteNum)].getlastcard().location
  28.     sprite(spriteNum).locZ = spriteNum
  29.     sprite(currentselect).member = member(sprite(the clickOn).memberNum, "playing cards")
  30.     reserve[makesymbol(spriteNum)].subcard(reserve[makesymbol(spriteNum)].getcardcount())
  31.     if stock.cards.count > 0 then
  32.       sprite(spriteNum).member = member(stock.cards[1].rank & "_" & stock.cards[1].suit, "playing cards")
  33.       stock.cards.deleteAt(1)
  34.       reserve[makesymbol(spriteNum)].addCard(spriteNum)
  35.       if stock.cards.count = 0 then
  36.         if redeals < 2 then
  37.           sprite(4).member = member("replenish", "playing cards")
  38.         else
  39.           sprite(4).member = member("block", "playing cards")
  40.         end if
  41.       end if
  42.     else
  43.       sprite(spriteNum).member = member("block", "playing cards")
  44.     end if
  45.     foundation[makesymbol(currentselect)].addCard(currentselect)
  46.     points = points + 10
  47.     equal = 0
  48.     currentselect = 0
  49.     checkwin()
  50.   else
  51.     if equal = 0 then
  52.       puppetSound(3, "dropcard")
  53.       mover.forget()
  54.       sprite(spriteNum).loc = reserve[makesymbol(spriteNum)].getlastcard().location
  55.       sprite(spriteNum).locZ = spriteNum
  56.     end if
  57.   end if
  58. end
  59.